home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d15
/
maximo_1.arc
/
TXT.ARC
/
SCHED.TXT
< prev
next >
Wrap
Text File
|
1991-08-20
|
5KB
|
191 lines
;
; SCHED (c) copyright 1990 Chris Butler
;
;VIDEO M
set entire off
goto top
all:
set entire on ; will cycle thru all modules
top:
;mouse on
global boxllx 0 ; mod 8 = 0
global boxlly 0
global boxw 488
global boxh 115
global boxtitle "Max with Ed the engineer"
set h 17 ; key height
set keycolor 14 ; keytop color in convbox = 14 (yellow)
set txtboxclr 14;
cload max.clp 30 1 0 ; max's face
tran on 15
cload cover.clp 32 0 1
merge toursubs.txt
set entrypoint "entry_8" ; for MENUing back
pload palette1.pcx 1
palette 1
pfree 1
set boxtitle "Max and Sue the scheduler"
cload elaine.clp 31 1 0
call steps.txt sched
label201:
newbgrnd "elaine1.pcx" 80 40 0 0 200 5
;mouse on
set str1 "Hi, Max ... what's up?"
set str2 " "
say 0 @str1 @str2
label1a:
getcmd
if @0<>"backup" label202
noise 500 200 50
waitkey 100
goto label1a
label202:
set str1 "Hey, Sue. We need to schedule a repair job on the Eclipse cartoner."
set str2 " "
say 1 @str1 @str2
getcmd
if @0==backup label201
label203:
set str1 "Sure, Max. Let's see when the next major P.M. is."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label202
label205:
newbgrnd "8.pcx" 80 0 1 0 10 9
set str1 "That's too late. We've got a block bearing problem and Eclipse has "
set str2 "recommended a retrofit as soon as possible."
say 1 @str1 @str2
getcmd
if @0==backup label203
label206:
set str1 "OK, let's see when we can get the machine from production."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label205
label207:
newbgrnd "9.pcx" 80 0 1 0 50 9
set str1 "Looks like you can have it on either the 6th or the 20th. Now let's "
set str2 "find out what it takes to do this job."
say 1 @str1 @str2
getcmd
if @0==backup label206
label208:
newbgrnd "10.pcx" 80 0 0 0 10 9
set str1 " ... well, here are the procedure steps ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label207
label209:
newbgrnd "parts.pcx" 80 0 0 0 10 9
set str1 " ... and here are the parts for the job ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label208
label210:
newbgrnd "12.pcx" 80 40 0 0 10 9
set str1 "... and we want to schedule 3 crafts for a total of 12 hours ..."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label209
label211:
newbgrnd "13.pcx" 80 40 0 0 10 9
set str1 " ... and, Max, here are the tools we need."
set str2 " "
say 0 @str1 @str2
getcmd
if @0==backup label210
label212:
newbgrnd "14.pcx" 80 0 1 0 10 9
set str1 "We have plenty of unscheduled mechanic labor available; who do you "
set str2 "think would be best for this job?"
say 1 @str1 @str2
getcmd
if @0==backup label211
label213:
newbgrnd "15.pcx" 80 0 0 0 10 9
set str1 "If we search on the word `Cartoner' MAXIMO comes back with a list "
set str2 "that includes Mike Jones."
say 0 @str1 @str2
getcmd
if @0==backup label212
label214:
newbgrnd "16.pcx" 80 0 0 0 10 9
set str1 "And the Crafts long description field says that Mike has had some "
set str2 "experience with those Eclipse cartoners."
say 0 @str1 @str2
getcmd
if @0==backup label213
label215:
set str1 "Great! Please schedule the job, reserve the parts and labor, and "
set str2 "print a work order."
say 1 @str1 @str2
getcmd
if @0==backup label214
label216:
newbgrnd "17.pcx" 80 0 1 0 10 9
set str1 "DEMO VIEWERS: IF YOU HAVE A PRINTER ATTACHED TO YOUR PC YOU CAN PRINT"
set str2 " A SAMPLE WORK ORDER BY PRESSING `P', OTHERWISE PRESS `C' TO CONTINUE"
say 1 @str1 @str2
waitkey
ifkey p prnt "P" prnt b label215 "B" label215 LEFT label215
goto label217 ; not p => skip to 217
prnt:
call workordr.txt
label217:
newbgrnd "elaine1.pcx" 80 40 0 0 10 9
set str1 "Max, this MAXIMO Series 3 is amazing. We're finally communicating "
set str2 "effectively with Production about our work schedules."
say 0 @str1 @str2
getcmd
if @0==backup label216
label218:
set str1 "Better planning of scheduled downtime has cut overtime by 20%. And"
set str2 " parts reservation has cut trips to the crib for parts and tools."
say 0 @str1 @str2
getcmd
if @0==backup label217
label219:
set str1 "Speaking of parts, I think I'll walk down the hall and see if Irv has"
set str2 " some of those bearings. See you later, Sue."
say 1 @str1 @str2
getcmd
if @0==backup label218
;mouse off
if @entire==on linkit
link master.txt entry_8 ; else link back
linkit:
link inv.txt all
; END SUBR SCHEDULER